home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / night mission (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  36 lines
  1. 5 gosub 2000
  2. 10 poke53280,0:poke53281,0:printchr$(147)
  3. 20 print""tab(15)"please wait"
  4. 30 sys57812"hangar.ml",8,0
  5. 40 poke780,0
  6. 50 poke781,0
  7. 60 poke782,64
  8. 70 sys65493
  9. 80 sys16384
  10. 1000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  11. 1010 ifer<>63thenend
  12. 1011 printchr$(142)"[147]       please wait while loading..."
  13. 1020 print"[144]p[207]55,255:p[207]56,159:l[207]"chr$(34)"hello connect"chr$(34)",8,1"
  14. 1050 poke631,19:poke632,13:poke633,82:poke634,85:poke635,78:poke636,13:poke198,6
  15. 1060 new
  16. 2000 poke53265,peek(53265)and239:poke53280,6:poke53281,1:print"[147][142]";
  17. 2001 print"[155]                                                                      ";
  18. 2002 print"               [154]                             [155]           [154]     loadstar ";
  19. 2003 print"proudly        [152] [155]          [154]         presents            [152] [155]          [154]";
  20. 2004 print"                             [152] [155]         [146][156]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  21. 2005 print"[183]P[155]         [146][156][165]nightmission[156][167][152] [155]        [146][156]L[175][175][175][175][175][175][175][175][175]";
  22. 2006 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][152] [155]                                      [151] [152] [155]   ";
  23. 2007 print"      [154]                             [152] [155]          [154]  [146][149]O[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  24. 2008 print"[183][183][183][183][183][183]P[154]  [152] [155]          [154]  [146][149][165][156]bybarbaraschulak[149][167] [154] [152] [155]        ";
  25. 2009 print"  [154]  [146][149]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154] [152] [155]          [154]                    ";
  26. 2010 print"        [154] [152] [155]          [154]                             [152] [155]          [154]  [146][156]O";
  27. 2011 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]P[154]  [152] [155]          [154]  [146][156][165]copyright1988[156]";
  28. 2012 print"[167] [154] [152] [155]          [154]  [146][156]L[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] [154] [152] [155]          [154]   ";
  29. 2013 print"                        [160][154] [152] [155]          [154]                             [152] ";
  30. 2014 print"[155]          [154]   press space to continue   [152] [155]          [154]                 ";
  31. 2015 print"            [152] [155]           [152]                             [155]               ";
  32. 2016 print"                             "
  33. 2020 poke2023,96+128:poke56295,15:poke53265,peek(53265)or16
  34. 2030 geta$:ifa$<>" "then2030
  35. 2035 return
  36.